000100******************************************************************
000200*PROJECT  : STU-B
000300*AUTHOR   : Minh-Tuan Ta
000400*DATE     : 03/26/2012
000500*ABSTRACT : A program to build an ISAM file with student data.
000600******************************************************************
000700 IDENTIFICATION DIVISION.
000800 PROGRAM-ID. STU-B.
000900 ENVIRONMENT DIVISION.
001000     SELECT OUTFILE      ASSIGN TO "STUMST.DAT"
001100                         ORGANIZATION    IS INDEXED
001200                         ACCESS          IS SEQUENTIAL
001300                         RECORD KEY      IS OUT-STUID
001400                         ALTERNATE KEY   IS OUT-LNAME WITH
001500                                            DUPLICATES
001600                         FILE STATUS     IS WS-STAT.
001700 DATA DIVISION.
001800 FILE SECTION.
001900 FD  OUTFILE.
002000 01  OUT-REC.
002100     03  OUT-STUID       PIC 9(4)    VALUE ZEROS.
002200     03  OUT-FNAME       PIC X(20)   VALUE SPACES.
002300     03  OUT-LNAME       PIC X(20)   VALUE SPACES.
002400     03  OUT-STREET      PIC X(30)   VALUE SPACES.
002500     03  OUT-ZIP         PIC X(5)    VALUE SPACES.
002600     03  OUT-ACTIVE      PIC X       VALUE SPACES.
002700 WORKING-STORAGE SECTION.
002800 01  WS-STAT             PIC XX.
002900 PROCEDURE DIVISION.
003000 100-MAIN.
003100     OPEN OUTPUT OUTFILE
003200     CLOSE OUTFILE
003300     EXIT PROGRAM.
